home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 April / EnigmA AMIGA RUN 26 (1998)(G.R. Edizioni)(IT)[!][issue 1998-04].iso / earkit / news / newyork / install_newyork < prev    next >
Text File  |  1998-03-13  |  27KB  |  501 lines

  1. ;******************************************************************************
  2. ;      _   __                _   __              __
  3. ;     / \ / /               \ \_/ /             / /__
  4. ;    /   \ /______ __   __   \   /______ _____ / // /
  5. ;   / /\  // ____// /__/ /    | // __  // .__// _  /
  6. ;  / / / // __/_ /  _   /    / // /_/ // /   / /| |
  7. ; /_/ /_//_____/ \_/ \_/    /_//_____//_/   /_/ |_|
  8. ;
  9. ; $VER: NewYork_Install 0.7 (November-06-1996)
  10. ; Changes, suggestions or problems: rcr@netcom.com
  11. ; May not be hacked into any "internet pack"
  12. ; If you wish to use any part of this installer you must ask.
  13. ; NewYork ©1996,1997 by Christopher E. Aldi 
  14. ; NewYork Installer ©1996 by Robert C. Reiswig  
  15. ;******************************************************************************
  16. (set vernum1 (getversion "newyork"))
  17. (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  18.  
  19. ;********************************************************************
  20. ; English Strings
  21. ;********************************************************************
  22. (set #about (cat "\n\nWelcome to\n\nNewYork " newyorkver "\n\n©1996,1997 by\n\nChristopher E. Aldi\n\ncaldi@finale-dev.com") )
  23. (set #wherenewyork "Where do you wish to install NewYork. A directory called 'NewYork' will be created.")
  24. (set #whatdocs "\nWhat NewYork documentation would you like to install? (The selected ones will be copied over if they are found in this archive.)\n")
  25. (set #wheredocs "Where would you like the newyork documentation you selected to be installed?")
  26.  
  27. (set #byebye (cat "\nNewYork Install Complete!\n\n" " "))
  28. (set #classact "\n\n\nThe following is the default Install/Update Installer\n\nProcedure for placing ClassAct on your System.")
  29. ;********************************************************************
  30. ; Hello
  31. ;********************************************************************
  32. (message #about)
  33. (welcome) 
  34.  
  35. ;********************************************************************
  36. ; Ask where to Install NewYork 
  37. ;********************************************************************
  38. (if (<> (getassign "Inet") "")   (set guesspackage 1))
  39. (if (<> (getassign "AmiTCP") "") (set guesspackage 0))
  40. (set Package "Work:")
  41. (if (= guesspackage 0) (set Package "AmiTCP:")) 
  42. (if (= guesspackage 1) (set Package "Inet:"))
  43.  
  44. (set newyorkdir (askdir (prompt #wherenewyork)
  45.                 (help   #wherenewyork)
  46.                      (default Package)
  47.                 )  
  48. )
  49.  
  50. (set where newyorkdir)
  51. (set @default-dest where)
  52.  
  53. ;********************************************************************
  54. ; Make Directory and copy over NewYork
  55. ;********************************************************************
  56. (if (< (exists (tackon where "NewYork")) 2) (makedir (tackon where "NewYork") (infos)) )
  57. (if (< (exists (tackon where "NewYork/newsrc")) 2) (makedir (tackon where "NewYork/newsrc")) )
  58.  
  59. (copyfiles (source "NewYork")
  60.            (dest (tackon where "NewYork")) 
  61.            (infos)
  62.            (optional "askuser" "force" "nofail")
  63. )
  64.  
  65. (copyfiles (source "NewYork.bru")
  66.            (dest (tackon where "NewYork")) 
  67.            (infos)
  68.            (optional "askuser" "force" "nofail")
  69. )
  70.  
  71. ;********************************************************************
  72. ; Ask where and if docs are wanted.
  73. ;********************************************************************
  74. (set docs (askoptions (choices " NewYork.guide" " NewYork.doc" " History.doc")
  75.               (prompt #whatdocs)
  76.                       (help #whatdocs)
  77.                   (default 7)
  78.       )
  79. )
  80.  
  81. (if (<> docs 0)
  82.  (
  83.    (set docsdir (askdir (prompt #wheredocs)
  84.                (help   #wheredocs)
  85.                     (default (tackon where "NewYork"))
  86.                 )  
  87.    )
  88.  
  89.  
  90.    (if (AND (exists "NewYork.guide") (IN docs 0)) 
  91.     (copyfiles (source "NewYork.guide") (dest docsdir) (infos) (optional "nofail") )
  92.    )
  93.  
  94.    (if (AND (exists "NewYork.doc") (IN docs 1)) 
  95.     (copyfiles (source "NewYork.doc") (dest docsdir) (infos) (optional "nofail") )
  96.    ) 
  97.  
  98.    (if (AND (exists "History.doc") (IN docs 2)) 
  99.     (copyfiles (source "History.doc") (dest docsdir) (infos) (optional "nofail") )
  100.    )
  101.  )
  102. )
  103.  
  104.  
  105. ; ---------------------------------------------------------------------------
  106.  
  107. ; ************* PLEASE COPY THIS PROCEDURE ALONG WITH THE STRINGS IT USES 
  108. ; ************* TO THE INSTALLER SCRIPT OF YOUR CLASSACT APPLICATION.
  109. ; ************* IT WILL TAKE CARE OF INSTALLING THE CLASSACT CLASSES YOU
  110. ; ************* PROVIDED WITH YOUR APPLICATION TO THE USER'S SYSTEM.
  111.  
  112. ; $VER: ClassAct_Install 1.16 (9.3.97) by Osma Ahvenlampi
  113.  
  114. (set cpu (database "cpu"))
  115. (set cpu020 (and (<> cpu "68000") (<> cpu "68010")))
  116. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  117.  
  118. ; percentage of the size of included ClassAct classes versus the whole
  119. ; distribution (ie. total "complete" percentage after ClassAct is installed)
  120.  
  121. (set classact-complete 90)
  122.  
  123. ; ClassAct installer scripts 
  124.  
  125. ;***********************************
  126. ;English Strings 
  127. ;***********************************
  128. (set #classdest-prompt "Please select the directory where you want the ClassAct classes installed.\n(See help for details)")
  129. (set #classdest-help (cat "ClassAct is a GUI toolkit consisting of shared BOOPSI classes.\n\nSome programs require some or all of the ClassAct classes installed on your system. "
  130.     (if v39 (cat "OS 3.0 has a standard directory for BOOPSI classes, the SYS:Classes directory. It is recommended that you install ClassAct there.")
  131.             (cat "OS 2.0 does not have a standard place for disk resident BOOPSI classes. On OS 3.0 these classes are stored in the SYS:Classes directory. It is recommended that you create this directory and install ClassAct there.\nThis directory must be added in the LIBS: assign. This can be done by placing the command\nAssign >NIL: LIBS: SYS:Classes ADD\nto User-Startup. This installer will do this for you.")
  132.         )
  133.     )
  134.  
  135. )
  136. (set #classes-020 "Do you want to use the OS 3.0, 020 optimised version of ClassAct?")
  137. (set #help-020 "Some ClassAct libraries have versions optimised for use on 020 or better equipped OS 3.0 or later machines. If your Amiga is such equipped, you should install these. The 68000/2.0 versions will also work, but are slightly slower.")
  138. (set #noclasses-message "The directory you selected for your ClassAct classes is not a part of the LIBS: assign.\n\nIt is necessary to add this assign so that the classes will be found properly.")
  139. (set #creating-dir "Creating directory ")
  140. (set #usbackup-prompt "User-Startup will now be backed up.")
  141. (set #usbackup-help "This installer will next make a modification in User-Startup. Before doing this the old User-Startup will be backed up to S:User-Startup.old")
  142. (set #adding-1 "Adding ")
  143. (set #adding-2 " to LIBS: assign\n")
  144. (set #adding-help "This is necessary so that the custom classes can be found.")
  145. (set #junod-button "It seems you have a late Commodore 'V42' button.gadget installed on your system.\n\nClassAct's button.gadget is far more capable than this gadget, and we recommend that you replace it. The ClassAct button.gadget is backwards compatible to the Commodore gadget. Do you wish to back up the Commodore gadget and replace it with the ClassAct version?")
  146. (set #junod-backed "The Commodore 'V42' button.gadget has been backed up with the name button.gadget.v42.\n\nThe ClassAct button.gadget will be installed in its place.")
  147. (set #junod-kept "The Commodore 'V42' button.gadget was not replaced with the more capable ClassAct version.\n\nPrograms depending on the availability of ClassAct-only features will be likely to work wrong.")
  148. ;(set #caprefs-message "CAPrefs is a small utility that sets some user preferences for ClassAct applications. These include the bevel style (Thin/Gadtools/Xen), window backfills, and group label details.\n\nPlease use the ClassAct GUI prefs editor to alter the default settings provided. ClassAct prefs will be installed in your system Prefs drawer.\n\n")
  149. (set #caprefs-message "ClassAct has several user-configurable aspects that affect the look of ClassAct interfaces.\n\nThese settings can be changed using the ClassAct preferences tool that will be installed in yout Prefs drawer.\n\nA small tool, CAPrefs, will be added to your user-startup to load the settings on reboot.")
  150. (set #caprefs-startup-1 "Adding the command\n\n")
  151. (set #caprefs-startup-2 "\n\nTo your s:User-Startup.")
  152. (set #decompressing-classact "Compressed ClassAct distribution detected\n\nDecompressing to RAM:")
  153. (set #deleting-cltmp "Deleting temporary files")
  154.  
  155. ;***********************************
  156. ;Spanish Strings 
  157. ;***********************************
  158. (if (= @language "español")  
  159. (
  160.  (set #classdest-prompt "Por favor, seleccione el directorio donde desea instalar las clases de ClassAct.\n(Vea la ayuda para más detalles)")
  161.  (set #classdest-help (cat "ClassAct es un kit de interface gráfica consistente es clases compartidas BOOPSI.\n\nAlgunos programas requieren que algunas o todas de las clases de ClassAct estén instaladas en su sistema. "
  162.  
  163.     (if v39 (cat "El OS 3.0 tiene un directorio estándar para las clases BOOPSI: el directorio SYS:Classes. Se recomienda que instale ClassAct ahí.")
  164.             (cat "El OS 2.0 no tiene un sitio estándar para las clases BOOPSI residentes en disco. En el OS 3.0 esas clases son almacenadas en el directorio SYS:Classes. Se recomienda que cree este directorio e instale ClassAct ahí.\nEste directorio debe ser añadido a la asignación de LIBS:. Esto puede ser hecho colocando el comando\nAssign >NIL: LIBS: SYS:Classes ADD\nal User-Startup. Este instalador lo hará por usted.")
  165.         )
  166.     )
  167.  )
  168.  (set #classes-020 "¿Quiere usar la versión optimizada para OS 3.0 y 020 de ClassAct?")
  169.  (set #help-020 "Algunas librerías de ClassAct tienen versiones optimizadas para el uso en máquinas con OS 3.0 y 020 o superior. Si su Amiga es una de tales máquinas debería instalar estas. Las versiones 68000/2.0 también funcionarán, pero son ligeramente más lentas")
  170.  (set #noclasses-message "El subdirectorio que seleccionó para sus clases ClassAct no forma parte de la asignación de LIBS:.\n\nEs necesario añadir esta asignación para que las clases puedan ser localizadas adecuadamente.")
  171.  (set #creating-dir "Creando directorio ")
  172.  (set #usbackup-prompt "Ahora se hará una copia de seguridad del User-Startup.")
  173.  (set #usbackup-help "Este instalador hará ahora una modificación en el User-Startup. Antes de hacer esto se hará una copia de seguridad del User-Startup en S:User-Startup.old")
  174.  (set #adding-1 "Añadiendo ")
  175.  (set #adding-2 "a la asignación de LIBS:\n")
  176.  (set #adding-help "Esto es necesario para que las clases puedan ser encontradas.")
  177.  (set #junod-button "Parece que tiene el último button.gadget de Comodore ('V42') instalado en su sistema.\n\nEl button.gadget de ClassAct es superior a este gadget y le recomendamos que lo remplace. El button.gadget de ClassAct es compatible con el de Commodore. ¿Desea hacer una copia de seguridad del gadget de Commodore y remplazarlo por la versión de ClassAct?")
  178.  (set #junod-backed "Se ha hecho una copia de seguridad del button.gadget 'V42' de Commodore con el nombre button.gadget.v42.\n\nEl button.gadget de ClassAct será instalado en su lugar.")
  179.  (set #junod-kept "El button.gadget 'V42' de Commodore no fué remplazado con la versión superior de ClassAct.\n\nLos programas que dependan de la disponibilidad de las características de la versión de ClassAct funcionarán mal probablemente")
  180.  ;(set #caprefs-message "CAPrefs es una pequeña utilidad que inicializa algunas preferencias del usuario para las aplicaciones ClassAct. Estas incluyen el estilo de resaltado (Fino/GadTools/Xen), relleno de ventanas, y detalles de las etiquetas de grupo.\n\nPor favor, use las preferencias de interface de ClassAct en su cajón de sistema 'Prefs' .\n\n")
  181.  (set #caprefs-message "ClasAct tiene varios aspectos configurables por el usuario que afectan a la apariencia de las interfaces ClassAct.\n\nEstos ajustes pueden ser modificados usando la herramienta de preferencias de ClassAct que será instalada en su cajón 'Prefs'.\n\nUna pequeña herramienta, CAPrefs, será añadida a su user-startup para cargar los ajustes al arrancar.")
  182.  (set #caprefs-startup-1 "Añadiendo el comando\n\n")
  183.  (set #caprefs-startup-2 "\n\nA su s:User-Startup.")
  184.  (set #decompressing-classact "Distribución de Classact comprimida detectada\n\nDescomprimiendo a RAM:")
  185.  (set #deleteing-cltmp "Borrando ficheros temporales")
  186. )
  187. )
  188.  
  189. ;***********************************
  190. ; Italian Strings 
  191. ;***********************************
  192. (if (= @language "italiano")
  193. (
  194.  (set #classdest-prompt "Per favore scegli la directory in cui vuoi installare le classi ClassAct.\n(Vedi Aiuto per i dettagli)")
  195.  (set #classdest-help (cat "ClassAct è un toolkit GUI che consiste di classi BOOPSI condivise.\n\nCerti programmi richiedono che alcune o tutte le classi ClassAct siano installate sul tuo sistema. "
  196.     (if v39 (cat "Il SO 3.0 ha una directory standard per le classi BOOPSI, la directory SYS:Classes. Si raccomanda d'installare ClassAct proprio lì.")
  197.             (cat "Il SO 2.0 non ha un posto standard per le classi BOOPSI residenti su disco. Nell'OS 3.0 queste classi sono immagazzinate nella directory SYS:Classes. Si raccomanda di creare questa directory e d'installarvi ClassAct.\nQuesta directory dev'essere aggiunta nell'assign LIBS:. Ciò può essere fatto mettendo il comando\nAssign >NIL: LIBS: SYS:Classes ADD\nnella User-Startup. Questo script d'installazione lo farà per te.")
  198.         )
  199.     )
  200.  )
  201.  (set #classes-020 "Vuoi usare la versione ottimizzata per SO 3.0 e CPU 020 di ClassAct?")
  202.  (set #help-020 "Alcune librerie ClassAct hanno versioni ottimizate per l'uso su macchine equipaggiate con una CPU 020 o superiore e il SO 3.0. Se il tuo Amiga é così equipaggiato, dovresti installarle. Le versioni 68000/2.0 funzioneranno comunque, ma sono più lente.")
  203.  (set #noclasses-message "La directory che hai scelto per le tue classi ClassAct non é parte dell'assign LIBS:.\n\nE' necessario aggiungere questo assegnamento affinché le classi siano trovate correttamente.")
  204.  (set #creating-dir "Creo la directory ")
  205.  (set #usbackup-prompt "La User-Startup sarà ora copiata per sicurezza.")
  206.  (set #usbackup-help "Questa installazione ora modificherà la User-Startup. Prima di fare ciò, la vecchia User-Startup sarà copiata per sicurezza in S:User-Startup.old")
  207.  (set #adding-1 "Aggiungo ")
  208.  (set #adding-2 " all'assign LIBS:\n")
  209.  (set #adding-help "Questo è necessario per far trovare al sistema le classi custom.")
  210.  (set #junod-button "Sembra che hai installato un recente button.gadget 'V42' della Commodore sul tuo sistema.\n\nIl button.gadget di ClassAct é molto più potente di questo gadget, e raccomandiamo di sostituirlo. Il button.gadget di ClassAct é compatibile con il gadget Commodore. Vuoi copiare per sicurezza il gadget Commodore e sostituirlo con la versione ClassAct?")
  211.  (set #junod-backed "Il  button.gadget della Commodore 'V42' é stato copiato per sicurezza col nome button.gadget.v42.\n\nIl button.gadget di ClassAct sarà installato al suo posto.")
  212.  (set #junod-kept "Il button.gadget 'V42' della Commodore non é stato sostituito dalla versione ClassAct più potente.\n\nI programmi che dipendono dalla disponibilità delle caratteristiche di ClassAct probabilmente funzioneranno male.") 
  213.  ;(set #caprefs-message "CAPrefs è una piccola utility che setta alcune preferenze dell'utente per le applicazioni ClassAct. Tra queste, lo stile dei bevel (Thin/Gadtools/Xen), i backfill delle finestre, ed il dettaglio della group label.\n\nPer favore usa l'editor di preferenze ClassAct GUI per modificare i settaggi standard forniti. ClassAct prefs sarà installato nel cassetto Prefs del tuo sistema.\n\n")
  214.  (set #caprefs-message "ClassAct ha diversi aspetti configurabili dall'utente che modificano l'aspetto delle interfacce ClassAct.\n\nQuesti settaggi possono essere cambiati usando il programma di preferenze ClassAct sarà installato nel tuo cassetto Prefs.\n\nUna piccola utility, CAPrefs, sarà aggiunta alla tua user-startup per caricare i settaggi al reboot.")
  215.  (set #caprefs-startup-1 "Aggiungo il comando\n\n")
  216.  (set #caprefs-startup-2 "\n\nalla tua S:User-Startup.")
  217.  (set #decompressing-classact "Trovata una distribuzione ClassAct compressa\n\nLa decomprimo in RAM:")
  218.  (set #deleting-cltmp "Cancello i file temporanei")
  219. )
  220. )
  221.  
  222. ;***********************************
  223. ; Swedish Strings 
  224. ;***********************************
  225. (if (= @language "svenska")
  226. (
  227. (set #classdest-prompt "Var god välj den låda där du vill installera ClassAct-klasserna.\n(Se hjälpen för detaljer.)")
  228. (set #classdest-help (cat "ClassAct är en verktygslåda för skapandet av användargränssnitt (GUI), som består av ett antal så kallade delade BOOPSI-klasser.\n\nEn del program kräver att en del, eller alla, ClassAct-klasser är installerade i din Amiga. "
  229.  
  230.     (if v39 (cat "OS 3.0 har en standardlåda för BOOPSI-klasser, Sys:Classes. Det rekommenderas att du installerar ClassAct där.")
  231.             (cat "OS 2.0 har inte någon standardlåda för diskbaserade BOOPSI-klasser. I OS 3.0 lagras sådana klasser i lådan Sys:Classes. Det rekommenderas att du skapar denna låda, och installerar ClassAct där.\nDenna låda måste vara en del av Libs:-tilldelningen. Detta kan göras genom att placera kommandot\nAssign >NIL: Libs: Sys:Classes ADD\ntill filen S:User-Startup. Den här installeraren kommer att göra det åt dig.")
  232.         )
  233.     )
  234.  
  235. )
  236.  
  237. (set #classes-020 "Vill du använda OS 3.0-versionen av ClassAct, som är optimerad för en 68020?")
  238. (set #help-020 "Några ClassAct-klasser finns i versioner som är optmierade för en 68020 och OS 3.0 eller bättre. Om din Amiga har sådan utrustning (eller bättre), så bör du installera dem. Versionerna för 68000/2.0 fungerar också, men de är något långsammare.")
  239. (set #noclasses-message "Den låda du har valt för ClassAct-klasserna är inte en del av Libs:-tilldelningen.\n\nDet är nödvändigt att lägga till denna tilldelning, så att klasserna kan hittas utan problem.")
  240. (set #creating-dir "Skapar lådan ")
  241. (set #usbackup-prompt "S:User-Startup kommer nu att backas upp.")
  242. (set #usbackup-help "Den här installeraren kommer strax att modifiera filen S:User-Startup. Innan detta görs, kommer den gamla S:User-Startup att backas upp till S:User-Startup.old")
  243. (set #adding-1 "Lägger till ")
  244. (set #adding-2 " till Libs:-tilldelningen\n")
  245. (set #adding-help "Detta måste göras för att klasserna ska kunna hittas.")
  246. (set #junod-button "Det ser ut som om du har Commodores 'V42' button.gadget installed i din Amiga.\n\nClassActs button.gadget kan mycket mer än denna knapp, och vi rekommenderar att du ersätter den. ClassAct-versionen av button.gadget är bakåtkompatibel med Commodore-knappen. Vill du backa upp Commodore-knappen, och ersätta den med ClassAct-versionen?")
  247. (set #junod-backed "Commodores 'V42' button.gadget har backats upp som button.gadget.v42.\n\nClassActs button.gadget kommer att installeras istället.")
  248. (set #junod-kept "Commodores 'V42' button.gadget har inte ersatts av den mer kapabla ClassAct-versionen.\n\nProgram som förlitar sig på tillgängligheten av ClassAct-specifika funktioner kommer troligen inte att fungera som de ska.")
  249.  
  250. ;(set #caprefs-message "CAPrefs är ett litet program som sätter användarinställningarna för ClassAct-program. Dessa inställningar inkluderar ramstil (smal/gadtools/xen), fönsterbakgrunder samt detaljer rörande gruppetiketter.\n\nVar god använd ClassActs grafiska inställningsredigerare för att ändra de förvalda inställningarna. ClassActs inställningsredigerare kommer att installeras i din Amigas Prefs-låda.\n\n")
  251.  
  252. (set #caprefs-message "ClassAct har flera användardefinierbara aspekter som påverkar hur ClassAct-gränssnitt ser ut.\n\nDessa inställningar kan ändras genom att använda ClassActs inställningsredigerare, som kommer att installeras i din Amigas Prefs-låda.\n\nEtt litet program, CAPrefs, kommer att läggas till din S:User-Startup, för att läsa in inställningarna vid systemuppstart.")
  253. (set #caprefs-startup-1 "Lägger till kommandot\n\n")
  254. (set #caprefs-startup-2 "\n\ntill din s:User-Startup.")
  255. (set #decompressing-classact "Komprimerad ClassAct-distribution upptäckt\n\nPackar upp till Ram:")
  256. (set #deleting-cltmp "Raderar temporära filer")
  257. )
  258. )
  259.  
  260.  
  261. (procedure install-classact ; call this procedure to copy the classes included in the Classes directory
  262. ; in your distribution dir.
  263.  
  264.     (if (exists "ClassAct.lha")    ; ClassAct is compressed - need to decompress first
  265.         (                        ; Distribution includes LHEX
  266.             (working (cat #decompressing-classact))
  267.  
  268. ; ClassAct.lha contains paths/files "Classes/*", "C/CheckAssign", "Prefs/CAPrefs" and "Prefs/ClassAct"
  269.  
  270.             (run "lhex -aqfw=ram:ClassAct/ x ClassAct.lha")
  271.             (set #classact-source "RAM:ClassAct")
  272.         )
  273.         (set #classact-source (pathonly @icon))
  274.     )
  275.     (if (exists "ClassAct.lzx")    ; ClassAct is compressed - need to decompress first
  276.         (                        ; Distribution includes UNLZX
  277.             (working (cat #decompressing-classact))
  278.  
  279. ; ClassAct.lzx contains paths/files "Classes/*", "C/CheckAssign",  "Prefs/CAPrefs" and "Prefs/ClassAct"
  280.  
  281.             (run "unlzx -amq x ClassAct.lzx ram:ClassAct/")
  282.             (set #classact-source "RAM:ClassAct")
  283.         )
  284.         (set #classact-source (pathonly @icon))
  285.     )
  286.  
  287.     (if (exists (tackon #classact-source "Classes")) ; The archive contains a ClassAct library update.
  288.     (
  289.         (set comp-dest  (/ (* classact-complete 2) 10))
  290.         (set comp-libs  (/ (* classact-complete 3) 10))
  291.         (set comp-dirs  (/ (* classact-complete 4) 10))
  292.         (set comp-junod (/ (* classact-complete 5) 10))
  293.         (set comp-020   (/ (* classact-complete 6) 10))
  294.         (set comp-gad   (/ (* classact-complete 7) 10))
  295.         (set comp-im    (/ (* classact-complete 8) 10))
  296.         (set comp-prefs (/ (* classact-complete 9) 10))
  297.     
  298.         ; has the user installed ClassAct in CLASSACT: ?
  299.         (set #classact-dest (getassign "CLASSACT" "A"))
  300.         (set @default-dest #classact-dest)
  301.         (if (= #classact-dest "") (set #classact-dest "SYS:Classes"))
  302.         
  303.         ; is ClassAct already in SYS:Classes ?
  304.         (if (or (not (exists (tackon #classact-dest "Gadgets/layout.gadget") (noreq)))
  305.                 (= @user-level 2))
  306.             ; no, ask where it should be placed
  307.             (set #classact-dest
  308.                 (askdir
  309.                     (prompt #classdest-prompt)
  310.                     (help #classdest-help)
  311.                     (default #classact-dest)
  312.                     (newpath)
  313.                 )
  314.             )
  315.         )
  316.         
  317.         (complete comp-dest)
  318.         
  319.         (if (<> (run (cat "\"" (tackon #classact-source "C/CheckAssign\"") " LIBS: " #classact-dest)) 0)
  320.             (
  321.                 (message #noclasses-message)
  322.                 (if (not (exists #classact-dest))
  323.                     (makedir #classact-dest (prompt (cat #creating-dir #classact-dest)))
  324.                 )
  325.                 (set #addassign (cat "Assign >NIL: LIBS: " #classact-dest " ADD\n"))
  326.                 (startup "CLASSACT"
  327.                     (command #addassign)
  328.                     (prompt (cat #adding-1 #classact-dest #adding-2))
  329.                     (help #adding-help)
  330.                 )
  331.                 (run (#addassign))
  332.             )
  333.         )
  334.         
  335.         (complete comp-libs)
  336.         
  337.         (set #classact-gadgets (tackon #classact-dest "Gadgets"))
  338.         (set #classact-images (tackon #classact-dest "Images"))
  339.         
  340.         (if (not (exists #classact-gadgets (noreq)))
  341.             (makedir #classact-images
  342.                 (prompt (cat #creating-dir #classact-gadgets))
  343.             )
  344.         )
  345.         
  346.         (if (not (exists #classact-images (noreq)))
  347.             (makedir #classact-images
  348.                 (prompt (cat #creating-dir #classact-images))
  349.             )
  350.         )
  351.         
  352.         (complete comp-dirs)
  353.         
  354.         (if (exists "SYS:Classes/Gadgets/button.gadget")
  355.             (if (and (= 2752514 (getversion "SYS:Classes/Gadgets/button.gadget"))
  356.                     (= 4868 (getsize "SYS:Classes/Gadgets/button.gadget")))
  357.                 (if (askbool (prompt #junod-button) (help @askbool-help) (default 1))
  358.                     (
  359.                         (rename "SYS:Classes/Gadgets/button.gadget" "SYS:Classes/Gadgets/button.gadget.v42")
  360.                         (message #junod-backed)
  361.                     )
  362.                     (message #junod-kept)
  363.                 )
  364.             )
  365.         )
  366.         
  367.         (complete comp-junod)
  368.         
  369.         (if (and (and cpu020 v39) (exists (tackon #classact-source "Classes/Gadgets/layout.gadget.020")))
  370.             (set classes-020 (askbool (prompt #classes-020) (help #help-020) (default 1)))
  371.             (set classes-020 0)
  372.         )
  373.  
  374.         (complete comp-020)
  375.         
  376.         (set #source-path (tackon #classact-source "Classes/Gadgets"))
  377.         (foreach #source-path "#?.gadget"
  378.             (
  379.                 (set thislib (tackon #source-path @each-name))
  380.                 (if (and classes-020 (exists (cat thislib ".020")))
  381.                     (set thislib (cat thislib ".020"))
  382.                 )
  383.                 (copylib (source thislib)
  384.                     (dest #classact-gadgets)
  385.                     (newname @each-name)
  386.                     (prompt (cat #installing @each-name))
  387.                     (help #classdest-help)
  388.                     (optional "force" "askuser")
  389.                 )
  390.             )
  391.         )
  392.         
  393.         (complete comp-gad)
  394.         
  395.         (set #source-path (tackon #classact-source "Classes/Images"))
  396.         (foreach #source-path "#?.image"
  397.             (
  398.                 (set thislib (tackon #source-path @each-name))
  399.                 (if (and classes-020 (exists (cat thislib ".020")))
  400.                     (set thislib (cat thislib ".020"))
  401.                 )
  402.                 (copylib (source thislib)
  403.                     (dest #classact-images)
  404.                     (newname @each-name)
  405.                     (prompt (cat #installing @each-name))
  406.                     (help #classdest-help)
  407.                     (optional "force" "askuser")
  408.                 )
  409.             )
  410.         )
  411.         
  412.         (complete comp-im)
  413.  
  414.         (set #source-path (tackon #classact-source "Classes"))
  415.         (foreach #source-path "#?.class"
  416.             (
  417.                 (set thislib (tackon #source-path @each-name))
  418.                 (if (and classes-020 (exists (cat thislib ".020")))
  419.                     (set thislib (cat thislib ".020"))
  420.                 )
  421.                 (copylib (source thislib)
  422.                     (dest #classact-dest)
  423.                     (newname @each-name)
  424.                     (prompt (cat #installing @each-name))
  425.                     (help #classdest-help)
  426.                     (optional "force" "askuser")
  427.                 )
  428.             )
  429.         )
  430.     )
  431.     )
  432.     (if (exists (tackon #classact-source "Prefs/ClassAct")) ; The archive contains ClassAct prefs tools
  433.     (
  434.         (message #caprefs-message)
  435.         
  436.         (copylib (source (tackon #classact-source "Prefs/CAPrefs")) 
  437.             (dest "C:") 
  438.             (prompt (cat #installing "CAPrefs"))
  439.         )
  440.         (copylib (source (tackon #classact-source "Prefs/ClassAct"))
  441.             (dest "SYS:Prefs")
  442.             (prompt (cat #installing "ClassAct Prefs"))
  443.             (infos)
  444.         )
  445.         
  446.         (complete comp-prefs)
  447.         
  448.         (if (not (exists "ENVARC:ClassAct" (noreq)))
  449.             (
  450.                 (makedir "ENVARC:ClassAct"
  451.                     (prompt (cat #creating-dir "ENVARC:ClassAct"))
  452.                 )
  453.                 (textfile (dest "ENVARC:ClassAct/ClassAct")
  454.                     (append "")
  455.                 )
  456.             )
  457.         )
  458.         (set caprefs-cmd "C:CAPrefs >NIL:\n")
  459.  
  460.         (startup "CAPREFS"
  461.             (prompt (cat #caprefs-startup-1 caprefs-cmd #caprefs-startup-2))
  462.             (help #caprefs-message)
  463.             (command caprefs-cmd)
  464.         )
  465.     )
  466.     )
  467.     
  468.     (if (or (exists "ClassAct.lha") (exists "ClassAct.lzx"))
  469.         (run "C:Delete RAM:ClassAct ALL"
  470.  
  471. ;        (delete "RAM:ClassAct" (all)
  472.  
  473.             (prompt #deleting-cltmp)
  474.         )
  475.     )
  476.  
  477.     (complete classact-complete) )
  478.  
  479. ; ************** END OF CLASSACT INSTALL PROCEDURE. COPY THE BLOCK ABOVE
  480. ; ************** TO YOUR CLASSACT APPLICATION INSTALLER.
  481.  
  482.  
  483. ; ---------------------------------------------------------------------------
  484.  
  485. (install-classact)
  486.  
  487. (complete 100)
  488.  
  489.  
  490. ; ---------------------------------------------------------------------------
  491. ; ---------------------------------------------------------------------------
  492.  
  493.  
  494.  
  495. ;********************************************************************
  496. ; End Bye 
  497. ;********************************************************************
  498. (set @default-dest where)
  499. (exit #byebye)
  500.